(defun C:FINDTXT (/ srch_str_found)
  (IF ustr NIL (LOAD "ustr" "\nFile USTR.LSP not loaded! "))
  (SETQ srch_str (ustr 1 "Enter Text you want to find (the search is case sensitive and exact so use wildcards if necessary)" srch_str T))
  (SETQ srch_str_found (SSGET "X" (LIST (CONS -4 "<OR")(CONS 1 srch_str)(CONS 3 srch_str)(CONS 304 srch_str)(CONS -4 "OR>"))))
  (IF (AND srch_str_found (> (SSLENGTH srch_str_found) 0))
    (PROGN
      (PRINC (STRCAT "\n" (GETVAR "dwgprefix")(GETVAR "dwgname")))
      (PRINC (STRCAT "\n\t" (ITOA (SSLENGTH srch_str_found)) " items found containing \"" srch_str "\".\n"))
    )
    (PRINC (STRCAT "\nNo items found containing \"" srch_str "\"."))
  )
  (PRINC)
)
(defun findtxt (/ srch_str_found ssget_lst)
  (IF ustr NIL (LOAD "ustr" "\nFile USTR.LSP not loaded! "))
  (IF (NOT srch_str)
    (SETQ srch_str (ustr 1 "Enter Text you want to find (the search is case sensitive and exact so use wildcards if necessary)" srch_str T))
  )
  (SETQ srch_str_found (SSGET "X" (LIST (CONS -4 "<OR")(CONS 1 srch_str)(CONS 3 srch_str)(CONS 304 srch_str)(CONS -4 "OR>"))))
  (IF (AND srch_str_found (> (SSLENGTH srch_str_found) 0))
    (PROGN
      (PRINC (STRCAT "\n" (GETVAR "dwgprefix")(GETVAR "dwgname")))
      (PRINC (STRCAT "\n\t" (ITOA (SSLENGTH srch_str_found)) " items found containing \"" srch_str "\".\n"))
    )
    (PRINC (STRCAT "\nNo items found containing \"" srch_str "\"."))
  )
  (PRINC)
)